home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-14  |  640 b   |  25 lines
  1. 10  PRINT "GEOMETRIC MEAN AND DEVIATION"
  2. 20  PRINT
  3. 30  PRINT "(TO END PROGRAM ENTER 0 OBSERVATIONS)"
  4. 40  PRINT "NUMBER OF OBSERVATIONS";
  5. 50  INPUT N
  6. 59  REM = TEST FOR END OF PROGRAM
  7. 60  IF N = 0  THEN 200
  8. 69  REM - COMPUTE WHICH ROOT TO USE
  9. 70  P = 1 / N
  10. 80  M = 1
  11. 90  FOR I = 1  TO N
  12. 100  PRINT "ITEM" ;I;
  13. 110  INPUT D
  14. 119  REM - ITERATIVELY COMPUTE MEAN
  15. 120  M = M * D ^ P
  16. 129  REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION
  17. 130  Q = Q + LOG (D) ^ 2
  18. 140  NEXT I
  19. 150  R = EXP (SQR( Q/ (N-1) - (N/ (N-1) *  (LOG (M)) ^ 2)))
  20. 160  PRINT "GEOMETRIC MEAN = "; M
  21. 170  PRINT "GEOMETRIC DEVIATION =";R
  22. 180  PRINT
  23. 190  GOTO  40
  24. 200  RUN "STAT"
  25.